
 1000  REM LOAD S-C MACRO ASSEMBLER (VIDEX)
 1010  REM INTO RAM AT $D000
 1020  REM LOAD PATCHES AT $F600
 1030  REM PATCH INPUT TEST TO CHECK FOR MY COMMANDS BEFORE ERROR
 1040  REM PATCH ESCAPE TABLE ($D4AB-) FOR ESCAPE-C
 1050  REM CHANGE CURSOR TO BLINKING UNDERLINE
 1060  REM PATCH ESC-L DASH LINE COUNT
 1070  REM PATCH EDIT CNTL-A TO MY ROUTINE
 1080  REM PATCH EDIT CNTL-I BACK TO INSERT FUNCTION
 1090  CALL-151
 1100  C081 C081
 1110  F800<F800.FFFFM
 1120  BLOAD S-C.ASM.MACRO.D000.VIDEX
 1130  300:A9 4C CD 00 E0 F0 12 8D 00 E0 A9 00 8D 01 E0 A9 D0 8D 02 E0 A9 CB 8D D1 03 60
 1140  300G
 1150  BLOAD SCM.PATCH
 1160  D3FF:20 00 F6
 1170  D4B1:19 F6
 1180  C0B0:0A 68
 1190  C0B0:0B 08
 1200  D4D3:40
 1210  DCB8:03 F6
 1220  DCC7:0B DC
 1230  C080
 1240  3D3G

